home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / turboass.lzh / LIBRARYS / XBIOS.S < prev   
Encoding:
Text File  |  1986-02-06  |  4.9 KB  |  308 lines
  1. ;************************************************************************
  2. ;* XBIOS-Library, Übergabe in Registern                 *
  3. ;* ©1989 by Σ-soft, written by Markus Fritze           18.06.1988 02:20 *
  4. ;************************************************************************
  5.  
  6. initmous:    move.l    A0,-(SP)
  7.         move.l    A1,-(SP)
  8.         move.w    D0,-(SP)
  9.         clr.w    -(SP)
  10.         bsr    xbios
  11.         lea    12(SP),SP
  12.         rts
  13.  
  14. ssbrk:        move.w    D0,-(SP)
  15.         move.w    #1,-(SP)
  16.         bsr    xbios
  17.         addq.l    #4,SP
  18.         rts
  19.  
  20. physbase:    move.w    #2,-(SP)
  21.         bsr    xbios
  22.         addq.l    #2,SP
  23.         rts
  24.  
  25. logbase:    move.w    #3,-(SP)
  26.         bsr    xbios
  27.         addq.l    #2,SP
  28.         rts
  29.  
  30. getrez:     move.w    #4,-(SP)
  31.         bsr    xbios
  32.         addq.l    #2,SP
  33.         rts
  34.  
  35. setscreen:    move.w    D0,-(SP)
  36.         move.l    A0,-(SP)
  37.         move.l    A1,-(SP)
  38.         move.w    #5,-(SP)
  39.         bsr    xbios
  40.         lea    12(SP),SP
  41.         rts
  42.  
  43. setpalette:    move.l    A0,-(SP)
  44.         move.w    #6,-(SP)
  45.         bsr    xbios
  46.         addq.l    #6,SP
  47.         rts
  48.  
  49. setcolor:    move.w    D0,-(SP)
  50.         move.w    D1,-(SP)
  51.         bsr    xbios
  52.         addq.l    #4,SP
  53.         rts
  54.  
  55. floprd:     move.w    D0,-(SP)
  56.         move.w    D1,-(SP)
  57.         move.w    D2,-(SP)
  58.         move.w    D3,-(SP)
  59.         move.w    D4,-(SP)
  60.         clr.l    -(SP)
  61.         move.l    A0,-(SP)
  62.         move.w    #8,-(SP)
  63.         bsr    xbios
  64.         lea    20(SP),SP
  65.         rts
  66.  
  67. flopwr:     move.w    D0,-(SP)
  68.         move.w    D1,-(SP)
  69.         move.w    D2,-(SP)
  70.         move.w    D3,-(SP)
  71.         move.w    D4,-(SP)
  72.         clr.l    -(SP)
  73.         move.l    A0,-(SP)
  74.         move.w    #9,-(SP)
  75.         bsr    xbios
  76.         lea    20(SP),SP
  77.         rts
  78.  
  79. flopmt:     move.w    D0,-(SP)
  80.         move.l    D1,-(SP)
  81.         move.w    D2,-(SP)
  82.         move.w    D3,-(SP)
  83.         move.w    D4,-(SP)
  84.         move.w    D5,-(SP)
  85.         move.w    D6,-(SP)
  86.         move.l    A1,-(SP)
  87.         move.l    A0,-(SP)
  88.         move.w    #$0A,-(SP)
  89.         bsr    xbios
  90.         lea    26(SP),SP
  91.         rts
  92.  
  93. getdsb:     move.w    #$0B,-(SP)
  94.         bsr    xbios
  95.         addq.l    #2,SP
  96.         rts
  97.  
  98. midiws:     move.l    A0,-(SP)
  99.         move.w    D0,-(SP)
  100.         move.w    #$0C,-(SP)
  101.         bsr    xbios
  102.         addq.l    #8,SP
  103.         rts
  104.  
  105. mfpint:     move.l    A0,-(SP)
  106.         move.w    D0,-(SP)
  107.         move.w    #$0D,-(SP)
  108.         bsr    xbios
  109.         addq.l    #8,SP
  110.         rts
  111.  
  112. iorec:        move.w    D0,-(SP)
  113.         move.w    #$0E,-(SP)
  114.         bsr    xbios
  115.         addq.l    #4,SP
  116.         rts
  117.  
  118. rsconf:     move.w    D0,-(SP)
  119.         move.w    D1,-(SP)
  120.         move.w    D2,-(SP)
  121.         move.w    D3,-(SP)
  122.         move.w    D4,-(SP)
  123.         move.w    D5,-(SP)
  124.         move.w    #$0F,-(SP)
  125.         bsr    xbios
  126.         lea    14(SP),SP
  127.         rts
  128.  
  129. keytbl:     move.l    A0,-(SP)
  130.         move.l    A1,-(SP)
  131.         move.l    A2,-(SP)
  132.         move.w    #$10,-(SP)
  133.         bsr    xbios
  134.         lea    14(SP),SP
  135.         rts
  136.  
  137. random:     move.w    #$11,-(SP)
  138.         bsr    xbios
  139.         addq.l    #2,SP
  140.         rts
  141.  
  142. protobt:    move.w    D0,-(SP)
  143.         move.w    D1,-(SP)
  144.         move.l    D2,-(SP)
  145.         move.l    A0,-(SP)
  146.         move.w    #$12,-(SP)
  147.         bsr    xbios
  148.         lea    14(SP),SP
  149.         rts
  150.  
  151. flopver:    move.w    D0,-(SP)
  152.         move.w    D1,-(SP)
  153.         move.w    D2,-(SP)
  154.         move.w    D3,-(SP)
  155.         move.w    D4,-(SP)
  156.         clr.l    -(SP)
  157.         move.l    A0,-(SP)
  158.         move.w    #$13,-(SP)
  159.         bsr    xbios
  160.         lea    20(SP),SP
  161.         rts
  162.  
  163. scrdmp:     move.w    #$14,-(SP)
  164.         bsr    xbios
  165.         addq.l    #2,SP
  166.         rts
  167.  
  168. cursconf:    move.w    D0,-(SP)
  169.         move.w    D1,-(SP)
  170.         move.w    #$15,-(SP)
  171.         bsr    xbios
  172.         addq.l    #6,SP
  173.         rts
  174.  
  175. settime:    move.l    D0,-(SP)
  176.         move.w    #$16,-(SP)
  177.         bsr    xbios
  178.         addq.l    #6,SP
  179.         rts
  180.  
  181. gettime:    move.w    #$17,-(SP)
  182.         bsr    xbios
  183.         addq.l    #2,SP
  184.         rts
  185.  
  186. bioskeys:    move.w    #$18,-(SP)
  187.         bsr    xbios
  188.         addq.l    #2,SP
  189.         rts
  190.  
  191. ikbdws:     move.l    A0,-(SP)
  192.         move.w    D0,-(SP)
  193.         move.w    #$19,-(SP)
  194.         bsr    xbios
  195.         addq.l    #8,SP
  196.         rts
  197.  
  198. jdisint:    move.w    D0,-(SP)
  199.         move.w    #$1A,-(SP)
  200.         bsr    xbios
  201.         addq.l    #4,SP
  202.         rts
  203.  
  204. jenabint:    move.w    D0,-(SP)
  205.         move.w    #$1B,-(SP)
  206.         bsr    xbios
  207.         addq.l    #4,SP
  208.         rts
  209.  
  210. giaccess:    move.w    D0,-(SP)
  211.         move.w    D1,-(SP)
  212.         move.w    #$1C,-(SP)
  213.         bsr    xbios
  214.         addq.l    #6,SP
  215.         rts
  216.  
  217. offgibit:    move.w    D0,-(SP)
  218.         move.w    #$1D,-(SP)
  219.         bsr    xbios
  220.         addq.l    #4,SP
  221.         rts
  222.  
  223. ongibit:    move.w    D0,-(SP)
  224.         move.w    #$1E,-(SP)
  225.         bsr    xbios
  226.         addq.l    #4,SP
  227.         rts
  228.  
  229. xbtimer:    move.l    A0,-(SP)
  230.         move.w    D0,-(SP)
  231.         move.w    D1,-(SP)
  232.         move.w    D2,-(SP)
  233.         move.w    #$1F,-(SP)
  234.         bsr    xbios
  235.         lea    12(SP),SP
  236.         rts
  237.  
  238. dosound:    move.l    A0,-(SP)
  239.         move.w    #$20,-(SP)
  240.         bsr    xbios
  241.         addq.l    #6,SP
  242.         rts
  243.  
  244. setprt:     move.w    D0,-(SP)
  245.         move.w    #$21,-(SP)
  246.         bsr    xbios
  247.         addq.l    #4,SP
  248.         rts
  249.  
  250. kbdvbase:    move.w    #$22,-(SP)
  251.         bsr    xbios
  252.         addq.l    #2,SP
  253.         rts
  254.  
  255. kbrate:     move.w    D0,-(SP)
  256.         move.w    D1,-(SP)
  257.         move.w    #$23,-(SP)
  258.         bsr    xbios
  259.         addq.l    #6,SP
  260.         rts
  261.  
  262. prtblk:     move.l    A0,-(SP)
  263.         move.w    #$24,-(SP)
  264.         bsr    xbios
  265.         addq.l    #6,SP
  266.         rts
  267.  
  268. vsync:        move.w    #$25,-(SP)
  269.         bsr    xbios
  270.         addq.l    #2,SP
  271.         rts
  272.  
  273. supexec:    move.l    A0,-(SP)
  274.         move.w    #$26,-(SP)
  275.         bsr    xbios
  276.         addq.l    #2,SP
  277.         rts
  278.  
  279. puntaes:    move.w    #$27,-(SP)
  280.         bsr    xbios
  281.         addq.l    #2,SP
  282.         rts
  283.  
  284. blitmode:    move.w    D0,-(SP)
  285.         move.w    #$40,-(SP)
  286.         bsr    xbios
  287.         addq.l    #4,SP
  288.         rts
  289.  
  290. ;************************************************************************
  291. ;* Allgemeiner Xbios-Einsprung, welcher alle Register rettet (außer D0) *
  292. ;* ACHTUNG! Sonst könnten die Register D0-D2/A0-A2 zerstört werden    *
  293. ;************************************************************************
  294. xbios:        move.l    A0,D0
  295.         lea    regsave(PC),A0
  296.         movem.l D0-D7/A1-A7,(A0)
  297.         move.l    (SP)+,-(A0)    ;Rücksprungadr retten
  298.         trap    #14
  299.         movea.l D0,A0        ;Fehlermeldung retten
  300.         movem.l regsave(PC),D0-D7/A1-A7
  301.         exg    A0,D0
  302.         move.l    retsave(PC),(SP)
  303.         rts
  304.  
  305. retsave:    DS.L 1
  306. regsave:    DS.L 15
  307.  
  308.